--[[
    编码: WMS-20-12
    名称: 入库单-新增窗口-选库区回调
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： CallBack

    功能:
        把选中的库区编码+名称设置到 目标库区控件

    更改记录:

--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

function CallBack ( strLuaDEID )
    local nRet, strRetInfo
    local obj

    -- 获取选中的数据对象
    nRet, obj = m3.GetSysDataJson( strLuaDEID )
    if ( nRet ~=0 ) then lua.Error( strLuaDEID, debug.getinfo(1), obj ) end  
    local obj_attrs = m3.KeyValueAttrsToObjAttr( obj.attrs )

    local action = {
         {
            action_type = "set_dlg_attr",
            value = {
                {
                    attr = "S_AREA_CODE", value = obj_attrs.S_CODE
                }
            }
         }
    }

    nRet, strRetInfo = mobox.setAction( strLuaDEID, lua.table2str(action)  )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end 
end